home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / C / Applications / Moscow ML 1.31 / source code / mosml / src / tools / mksmlpre < prev   
Encoding:
Text File  |  1996-07-03  |  587 b   |  31 lines  |  [TEXT/R*ch]
  1. print "local open Const in\n";
  2. print "val predef_variables = [\n";
  3.  
  4. open(VARS, $ARGV[0]) || die("cannot open $ARGV[0]");
  5. $first = 1;
  6. while(<VARS>) {
  7.   if (m|/\* (".*"),(".*") \*/|) {
  8.     print ",\n" unless $first;
  9.     print "  {qual=\"(global)\", id=$2}";
  10.     $first = 0;
  11.   }
  12. }
  13. close(VAR);
  14.  
  15. print "\n];\n";
  16. print "val predef_exn = [\n";
  17.  
  18. open(EXC, $ARGV[1]) || die("cannot open $ARGV[1]");
  19. $first = 1;
  20. while(<EXC>) {
  21.   if (m|/\* (".*"),(".*"),([0-9]+) \*/|) {
  22.     print ",\n" unless $first;
  23.     print "  ({qual=$1, id=$2}, $3)";
  24.     $first = 0;
  25.   }
  26. }
  27. close(EXC);
  28.  
  29. print "\n];\nend;\n";
  30.  
  31.